home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU21.ARC / SCREEN COPY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  577 b   |  23 lines
  1. 60000 REM SCREEN COPY
  2. 60010 SI$=CHR$(14):BS$=CHR$(8)
  3. 60020 RV$=CHR$(18):RO$=CHR$(146):QT$=CHR$(34)
  4. 60030 MF$=CHR$(17):VR=PEEK(648)*256
  5. 60040 OPEN4,4:PRINT#4
  6. 60050 FORCL=0TO44:QF=0:AS$=MF$:FORRO=0TO21
  7. 60060 SC=PEEK(VR+22*CL+RO)
  8. 60070 IFSC=34THENQF=1-QF
  9. 60080 IFQF<>162THEN60110
  10. 60090 QF=1-QF:IQF=1THENAS$=S$+RV$+QT$:GOTO60170
  11. 60100 AS$=AS$+Q$+RO$:GOTO60170:60130
  12. 60110 IFQF=1ANDSC=128THENSC=SC-128:GOTO60130
  13. 60120 IFSC>=128THENSC=SC-128:RF=1:AS$=AS$+RV$
  14. 60130 IFSC<32ORSC>95THENAS=SC+64:GOTO60160
  15. 60140 IFSC>31ANDSC<64THENAS=SC:GOTO60160
  16. 60150 IFSC>63ANDSC<96THENAS=SC+32:GOTO60160
  17. 60160 AS$=AS$+CHR$(AS)
  18. 60170 IFRF=1THENAS$=AS$+RO$:RF=0
  19. 60180 NEXTRO
  20. 60190 IFQF=0THENPRINT#4,SI$AS$;:GOTO60210
  21. 60200 PRINT#4,SI$+AS$+QT$
  22. 60210 NEXTCL:PRINT#4,SI$:CLOSE4:RETURN
  23.